<!-- #include file="../DAL/BD.asp" -->
<!-- #include file="../BLL/DV.asp" -->

<%
    ' Conecto a la base de datos
	set conexion = Conectar()
	
    ' Defino el string con el nombre del archivo de backup
	nombre = replace(Date(),"/","-") & "_backup.bak"

On error resume next

	' Registro el movimiento en la tabla de backup
	EjecutarConsulta "INSERT INTO BACKUPS(NOMBRE, FECHA, ID_USUARIO, TIPO) VALUES('" & nombre & "',getdate(),'" & Session("ID_USUARIO") & "','1')", conexion

	' Registro el movimiento en la bitacora
	id = obtener_ultimo_id("BITACORA","ID_BITACORA") + 1
	dvh = calcularDVH(id & "BACKUP BD" & "2" & formatdatetime(now(),vbgeneraldate) & session("ID_USUARIO"))					
	AgregarMovimiento "BACKUP BD", "2", session("ID_USUARIO"), dvh
	calcularDVV("BITACORA")	
		
	EjecutarConsulta "BACKUP DATABASE TuTicket TO DISK='C:\Program Files\Microsoft SQL Server\MSSQL11.MSSQLSERVER\MSSQL\Backup\" & nombre & "'", conexion
    	
	' Desconecto la base de datos
	Desconectar(conexion)

    ' Si se detecta un error en el proceso de backup redirecciono a la pagina de error, caso contrario redirecciono a herramientas
	If err.number <> 0 Then
		Response.Redirect("../UI/error_.asp")
	else
		Response.Redirect("herramientas.asp")
	End If	
%>